home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 43 / 043.d81 / expedition boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  55 lines
  1. 12 poke53280,5:poke53281,6
  2. 15 gosub1000
  3. 20 print""spc(12)"[197]xpedition [193]mazon"
  4. 30 print
  5. 40 print"    [201]nsert[160][211][201][196][197][160]2 of [196][201][211][203] 2 into"
  6. 42 print"your drive and press a key."
  7. 44 printspc(15)"-- [207][210] --"
  8. 50 print"<[208]ress '[209]' to return to [204][207][193][196][211][212][193][210]>"
  9. 65 :
  10. 70 poke198,0:wait198,1:geta$
  11. 75 ifa$="q"then60000
  12. 76 gosub10000
  13. 77 print"[147]"spc(6)"[194]ooting [197]xpedition [193]mazon"
  14. 78 f$="hello"
  15. 80 print"loadf$,8,1":print"run":poke631,13:poke632,13:poke198,2:end
  16. 1000 :
  17. 1010 print"[147][153]****************************************";:forx=1to23
  18. 1012 print"*"spc(38)"*";:next
  19. 1014 print"***************************************";:poke56295,peek(55296)
  20. 1016 poke2023,42
  21. 1020 return
  22. 10000 :
  23. 10010 gosub59000
  24. 10020 ifleft$(n$,4)="exp."thenreturn
  25. 10030 print"[147]      [197]xpedition [193]mazon not found..."
  26. 10040 print"  [208]lease insert that disk to try again."
  27. 10045 print"               -- [207][210][160]--"
  28. 10050 print"   <[208]ress '[209]' to return to [204][207][193][196][211][212][193][210]>"
  29. 10060 poke198,0:wait198,1:geta$
  30. 10070 ifa$="q"then60000
  31. 10080 goto10000
  32. 10090 :
  33. 59000 :
  34. 59010 open15,8,15,"i0"
  35. 59020 open8,8,8,"#"
  36. 59030 print#15,"ua:8 0 18 0"
  37. 59040 print#15,"b-p:8 144"
  38. 59050 n$="":fora=1to16:get#8,a$:n$=n$+a$:next
  39. 59060 close8:close15
  40. 59070 return
  41. 60000 :
  42. 60010 open15,8,15,"r0:star=star":input#15,er:close15
  43. 60020 ifer<>63then61000
  44. 60030 print"[147]"spc(12)"[199]oing to [204][207][193][196][211][212][193][210]..."
  45. 60040 f$="hello connect"
  46. 60050 print"loadf$,8":print"run":poke631,13:poke632,13:poke198,2:end
  47. 60060 :
  48. 61000 rem  is loadstar there?
  49. 61010 gosub59000
  50. 61020 ifleft$(n$,10)="loadstar #"thenreturn
  51. 61030 print"[147]         [204][207][193][196][211][212][193][210] not found..."
  52. 61040 print"  [208]lease insert that disk to try again."
  53. 61050 print"   [208]ress any key when you are ready."
  54. 61060 poke198,0:wait198,1:poke198,0:goto61000
  55.